Listin Gambas2

Création d'un programme en Gambas2 : un répertoire téléphonique pas à pas

Origine : http://listingambas.blogspot.com/2011/06/introducir-datos-comprobacion-de-correo.html

Saisie de données: Vérification e-mail

Nous allons introduire un petit code pour vérifier que l'adresse e-mail est correctement orthographiée. Nous vérifions que nous avons un "@" et un "." même si cela ne garantit pas que cette adresse existe ...

PUBLIC SUB TextBoxMail_LostFocus()
'Vérifier si le “@” et le “.” sont dans le textboxMail

IF InStr((TextBoxMail.text), ("@")) = 0 or InStr((TextBoxMail.text), (".")) = 0 THEN

Message.info("vous avez entré une adresse mail erronée, il manque @ ou .")

TextBoxMail.SetFocus

ELSE

ENDIF

END

Nous le mettons-le dans l'événement LostFocus pour vérifier qu'elle est conforme, juste avant de saisir un autre domaine.

Puis nous ajoutons TextBoxMail.SetFocus pour traiter le message d'alerte et revenir modifier le champ.